home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)md.d64 / christ bloodline (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  16KB  |  419 lines
  1. 10 REM ** BLOODLINE OF CHRIST **
  2. 11 POKE198,0:CLR:RESTORE:PRINTCHR$(8)
  3. 12 REM ******************************
  4. 13 REM ******************************
  5. 14 REM **                          **
  6. 15 REM ** (C) GLEN R. HOWARD 1983  **
  7. 16 REM **     15106 HARRION        **
  8. 17 REM **     ROMULUS, MICH. 48174 **
  9. 18 REM **                          **
  10. 19 REM ******************************
  11. 20 REM ******************************
  12. 30 PRINT"[154][147]ONE MOMENT PLEASE . . .":GOSUB30000:REM INITIALIZE
  13. 35 GOSUB33300:IFF5=1THENGOTO60
  14. 40 GOSUB33000:REM INTRODUCTION
  15. 50 GOSUB31000:REM INSTRUCTIONS
  16. 60 GOSUB32000:REM INPUT NAME + CHOOSE RND OR IN ORDER
  17. 70 GOSUB34000:REM WORKING DISPLAY
  18. 100 REM ** SKIP QUESTION **
  19. 110 F3=1:SK=SK+1
  20. 120 PRINT"                                                        ";
  21. 125 PRINT"                                                                  ";
  22. 126 PRINT"                                                                   ";
  23. 127 PRINT"                                                                   ";
  24. 128 PRINT"                                                                    ";
  25. 130 GOSUB400:REM GET ANOTHER QUESTION N
  26. 135 PRINT""TAB(16)"                         "
  27. 140 PRINT""QU$(N)"?"
  28. 150 RETURN
  29. 300 REM ** CHECK ANSWER **
  30. 320 IFLEFT$(RS$,3)<>LEFT$(AN$(N),3)THENGOSUB900:PZ(N)=1:RETURN
  31. 322 IFF4=0THENRI=RI+1
  32. 323 PRINT""TAB(16)AN$(N)" IS CORRECT!"
  33. 324 FORL=1TO10:GETA$:NEXTL:PZ(N)=1
  34. 325 FORL=1TO500:GETA$:IFA$=""THENNEXTL
  35. 330 GOSUB100:F4=0
  36. 340 IFSK>0THENSK=SK-1
  37. 350 RETURN
  38. 400 REM ** GET QUESTION # **
  39. 405 X=RND(-TI):F7=0
  40. 410 IFC1=2THENN=INT(RND(0)*40)+1
  41. 415 IFF7>300THENF7=0:GOSUB3000:RETURN
  42. 416 IFC1=2ANDPZ(N)=1THENF7=F7+1:GOTO410
  43. 419 IFC1=2THEN:RETURN
  44. 420 IFN>=40THENN=1:RETURN
  45. 430 IFN=0THENN=1:RETURN
  46. 440 N=N+1:RETURN
  47. 500 REM ** GET RESPONSE (RS$) **
  48. 510 RS$="":F2=0:F3=0
  49. 520 FORL=1TO10:GETRR$:NEXTL
  50. 530 FL=0
  51. 531 GETRR$:IFRR$=""THENFL=FL+1
  52. 532 IFFL=1500ANDF6=1THENNA$="NOBODY"
  53. 534 IFFL=1500THENPOKESR+21,PEEK(SR+21)AND254:GOSUB37000:RETURN
  54. 539 IFRR$=""THEN531
  55. 540 IFRR$=CHR$(13)THENRETURN
  56. 550 IFRR$=CHR$(20)THEN650
  57. 560 IFF1=0ANDRR$=CHR$(95)THENGOSUB100:RETURN
  58. 570 IFF1=0ANDRR$=CHR$(133)THENGOSUB37000:RETURN:REM STOP
  59. 580 IFF1=0ANDRR$=CHR$(134)THENGOSUB35000:RETURN
  60. 590 IFF1=0ANDRR$=CHR$(135)THENGOSUB700:RETURN:REM DISPLAY LIST
  61. 600 IFF1=0ANDRR$=CHR$(136)THENGOSUB38000:RETURN:REM SCOREBOARD
  62. 610 IFASC(RR$)<65ORASC(RR$)>90THENRR$="":GOTO530
  63. 620 IFLEN(RS$)>15THEN530
  64. 630 PRINT"[158]"RR$;:RS$=RS$+RR$:GOTO530RN 
  65. 650 IFRS$=""THEN530
  66. 655 PRINT"[157] [157]";:RS$=LEFT$(RS$,(LEN(RS$)-1)):GOTO530
  67. 660 REM ** START OVER **
  68. 670 PRINT"[147]
  69. 700 [143] ** DISPLAY LIST **
  70. 710 [153]"LOAD";:[151]BR,[165]A(X)
  71. 720 [139]C1[178]1[167]750
  72. 723 [153]"CLR************* NAME LIST ****************"
  73. 724 [129]L[178]1[164]9:[153]"# "L;AN$(L):[130]L
  74. 725 NL[178]NL[170]1
  75. 726 [129]L[178]10[164]20:[153]"#"L;AN$(L):[130]L
  76. 727 [153]""
  77. 728 [129]L[178]21[164]40
  78. 729 [153][163]21)"#"L;AN$(L):[130]L
  79. 735 [153]"SYS    PRESS F5 OR SPACEBAR TO CONTINUE WAIT";
  80. 742 [129]L[178]1[164]10:[161]A$:[130]L:FL[178]0
  81. 744 [161]A$:FL[178]FL[170]1
  82. 745 [139]A$[178][199](32)[176]A$[178][199](135)[167]748
  83. 746 [139]FL[177]2000[167]748
  84. 747 [137]744
  85. 748 F2[178]1:[142]
  86. 749 [153]"CLRNOW "NA$","
  87. 750 [153]"CLRNOW "NA$","
  88. 760 [153]""[166]9)"YOU CHOSE TO DO THE"
  89. 770 [153]""[166]9)"QUESTIONS IN ORDER."
  90. 780 [153]""[166]9)"LOOKING AT THE LIST"
  91. 790 [153]""[166]9)"WOULDN'T BE FAIR."
  92. 800 [153]"SYS    PRESS F5 OR SPACEBAR TO CONTINUE WAIT"
  93. 810 [129]L[178]1[164]10:[161]A$:[130]L:FL[178]0
  94. 811 [161]A$:[139]A$[178]""[167]FL[178]FL[170]1
  95. 812 [139]FL[178]700[167]830
  96. 820 [139]A$[179][177][199](32)[175]A$[179][177][199](135)[167]811
  97. 830 F2[178]1:[142]
  98. 900 [143] ** WRONG ANSWER **
  99. 905 PF(N)[178]1
  100. 910 F4[178]F4[170]1:[139]F4[178]3[167][137]1000
  101. 915 [139]F4[178]1[167]WR[178]WR[170]1
  102. 930 [153]"CLR           WRONG, TRY AGAIN"
  103. 950 [129]L[178]1[164]10:[161]A$:[130]L
  104. 960 [129]L[178]1[164]1000
  105. 970 [161]A$:[139]A$[178]""[167][130]L
  106. 975 [153]""[163]16)"                         "
  107. 980 [153]"                                         "
  108. 990 [153]"ONONON"[166]16)"               "
  109. 995 [142]
  110. 1000 [143] ** 3 WRONG **
  111. 1005 [153]"                                        "
  112. 1010 [153]"CLRWRONG. THE CORRECT ANSWER WAS:"
  113. 1030 [153]"    ** "AN$(N)" **  "PR$(N)
  114. 1040 [153]"SYSON     PRESS  SPACEBAR WAIT TO CONTINUE";
  115. 1060 [129]L[178]1[164]10:[161]A$:[130]L:FL[178]0
  116. 1061 [161]A$:[139]A$[178]""[167]FL[178]FL[170]1
  117. 1062 [139]FL[178]700[167]1080
  118. 1070 [139]A$[179][177][199](32)[175]A$[179][177][199](13)[167]1061
  119. 1080 F4[178]0:[142]
  120. 3000 [143] ** 40 QUESTIONS TRIED RND **
  121. 3005 [153]"                                               ";
  122. 3006 [153]"                                                                   ";
  123. 3007 [153]"                                            ";
  124. 3010 [153]"ALL 40 QUESTIONS TRIED."
  125. 3020 [129]L[178]1[164]1000:[130]L
  126. 3025 [129]L[178]1[164]40:PZ(L)[178]0:[130]L
  127. 3030 [142]
  128. 30000 [143] ** INITIALIZATION **
  129. 30001 [151]808,225
  130. 30002 WR[178]0:RI[178]0:C1[178]0:N[178]0:X[178]0:F1[178]0:F2[178]0:F3[178]0:F4[178]0:F5[178]0:F6[178]0:F7[178]0:F8[178]0:BR[178]53280
  131. 30003 SK[178]0:L[178]0:NL[178]0:TP[178]0:FL[178]0:SR[178]53248:NA$[178]"":RS$[178]"":RR$[178]""
  132. 30005 [151]53269,0:[150][165]A(X)[178][181]([187](1)[172]14)[170]2
  133. 30010 [134]QU$(41),AN$(41),PR$(41),PF(41),PZ(41):[151]53281,0
  134. 30030 [140]
  135. 30040 [129]N[178]1[164]40:[135]Q1$,Q2$:QU$(N)[178]Q1$[170]Q2$:[135]AN$(N),PR$(N)
  136. 30060 [130]N
  137. 30100 [129]L[178]832[164]894:[135]SD:[151]L,SD:[130]L
  138. 30110 [151]2040,13:[151]SR[170]23,[194](SR[170]23)[176]1:[151]SR[170]29,[194](SR[170]29)[176]1
  139. 30199 [142]
  140. 31000 [143] ** INSTRUCTIONS **
  141. 31010 [153]"CLR INSTRUCTIONS WAIT"
  142. 31020 [153]"CONTTHIS PROGRAM WAS DEVELOPED TO BE        SIMPLE TO OPERATE.";
  143. 31030 [153]"THE FOUR FUNC-       TION KEYS ON THE RIGHT HAND";
  144. 31040 [153]"SIDE        ARE USED FOR MAKING SELECTIONS.         ";
  145. 31050 [153]"THROUGHOUT THIS PROGRAM YOUR            CHOICES WILL";
  146. 31055 [153]" BE DISPLAYED ON THE        SCREEN."
  147. 31060 [153]"    BEFORE WE CONTINUE, A VERSE:           ";
  148. 31070 [153][199](34)"A GOOD NAME IS TO BE CHOSEN RATHER"
  149. 31080 [153]"    THAN GREAT RICHES..."[199](34)" <PRO 22:1>"
  150. 31090 [153]"SYS        PRESS SPACEBAR TO CONTINUE WAIT"
  151. 31095 [129]L[178]1[164]10:[161]A$:[130]L:FL[178]0
  152. 31096 [161]A$:[139]A$[178]""[167]FL[178]FL[170]1
  153. 31097 [139]FL[178]2000[167][153]"":[142]
  154. 31098 [139]A$[179][177][199](32)[167]31096
  155. 31099 [153]"":[142]
  156. 32000 [143] ** GET NAME **
  157. 32005 F6[178]1
  158. 32010 [153]"CLR         BLOODLINE OF CHRIST"
  159. 32020 [153]"       (C) GLEN R. HOWARD 1983"
  160. 32030 [153]"SYSTYPE YOUR NAME, THEN PRESS  RETURN WAIT"
  161. 32036 [153]"JESUS SAVES"
  162. 32040 [153]"CONTYOUR FIRST NAME? ONONON";
  163. 32041 [151]SR,150:[151]SR[170]1,160:[151]SR[170]39,1:[151]SR[170]21,[194](SR[170]21)[176]1
  164. 32042 F1[178]1:[141]500:F6[178]0:F1[178]0
  165. 32045 [139]NA$[178]""[167]NA$[178]RS$:[153]
  166. 32046 [153]"VICTORY IN JESUS"
  167. 32050 [153]"NOW CHOOSE:"
  168. 32060 [153]"SYS          1 WAIT BLOODLINE IN ORDER"
  169. 32070 [153]"          2 WAIT NOT IN ORDER":[153]"CONT      YOUR CHOICE?"
  170. 32080 [129]L[178]1[164]10:[161]A$:[130]L:FL[178]0
  171. 32081 [161]A$:[139]A$[178]""[167]FL[178]FL[170]1
  172. 32082 [139]FL[178]700[167]C1[178]1:[151]SR[170]21,[194](SR[170]21)[175]254:[142]
  173. 32090 [139]A$[179][177]"1"[175]A$[179][177]"2"[167]32081
  174. 32095 C1[178][197](A$):[151]SR[170]21,[194](SR[170]21)[175]254:[142]
  175. 33000 [143] INTRODUCTION
  176. 33010 [153]"CLR          BLOODLINE OF CHRIST WAIT
  177. 33020 PRINT"[154]THIS PROGRAM IS DESIGNED TO TEACHYOU THE NAMES";
  178. 33030 PRINT"OF THE PEOPLE IN THE      BIBLE WHO ARE IN THE 'BLOODLINE";
  179. 33040 PRINT"OF      CHRIST'.THE LIST OF NAMES CONTAINED    ";
  180. 33050 PRINT"HEREIN IS NOT EXHAUSTIVE. THE NAMES     THAT ARE INCLUDED";
  181. 33060 PRINT" WERE CHOSEN TO        BRING GLORY TO GOD. THE";
  182. 33070 PRINT" FATHER'S        DIVINE PLAN FOR BRINGING A REDEEMER     ";
  183. 33080 PRINT"INTO THE WORLD WOVE IT'S WAY THROUGH    THESE PEOPLES LIVES."
  184. 33090 PRINT"[158]       PRESS SPACEBAR TO CONTINUE [146]"
  185. 33095 FORL=1TO10:GETA$:NEXTL:FL=0
  186. 33096 GETA$:IFA$=""THENFL=FL+1
  187. 33097 IFFL=2000THEN33100
  188. 33098 IFA$<>CHR$(32)THEN33096
  189. 33100 PRINT"[154]PERHAPS SOMETIME IN YOUR LIFE WHILE    YOU ARE";
  190. 33110 PRINT"READING YOUR BIBLE YOU WILL     READ ABOUT THESE";
  191. 33120 PRINT"PEOPLE, AND REMEMBER   THAT GOD'S MERCY IS FROM";
  192. 33130 PRINT"GENERATION     TO GENERATION. [154]<ISA 51:8>"
  193. 33140 PRINT"GOD TOLD ABRAHAM..."
  194. 33150 PRINT""CHR$(34)"IN YOUR SEED (POSTERITY) SHALL"
  195. 33160 PRINT"    ALL THE NATIONS OF THE EARTH BE"
  196. 33170 PRINT"    BLESSED[154]"CHR$(34)". <GEN 22:18 GAL 3:8>"
  197. 33180 PRINT"[158]       PRESS SPACEBAR TO CONTINUE [146]"
  198. 33190 FORL=1TO10:GETA$:NEXTL:FL=0
  199. 33191 GETA$:IFA$=""THENFL=FL+1
  200. 33192 IFFL=2000THENRETURN
  201. 33198 IFA$<>CHR$(32)THEN33191
  202. 33199 RETURN
  203. 33300 REM ** SKIP INTRO? **
  204. 33304 POKEBR,FNA(X)
  205. 33305 PRINT"[156]******* THE BLOODLINE OF CHRIST ********"
  206. 33310 PRINT"    TO SKIP THE INTRODUCTION AND"
  207. 33320 PRINT"THE DIRECTIONS, [158]PRESS  _ [146]"
  208. 33330 PRINT"[158]PRESS ANY KEY TO CONTINUE"
  209. 33331 POKESR,150:POKESR+1,160:POKESR+39,1:POKESR+21,PEEK(SR+21)OR1
  210. 33332 PRINT"VICTORY"
  211. 33340 FORL=1TO10:GETA$:NEXTL:FL=0:FZ=0
  212. 33350 GETA$:IFA$=""THENFL=FL+1
  213. 33360 IFA$=CHR$(95)THENF5=1:PRINT"":RETURN
  214. 33361 IFFL=100THENPOKESR+21,PEEK(SR+21)AND254:PRINT"":RETURN
  215. 33362 IFFZ=0THENPRINT"THE BLOODLINE OF CHRIST"
  216. 33363 IFFZ=0THENFORL=1TO350:NEXTL:FZ=1:IFA$=""THEN33350
  217. 33364 IFA$<>""THEN33370
  218. 33365 IFFZ=1THENPRINT"THE BLOODLINE OF CHRIST"
  219. 33366 IFFZ=1THENFORL=1TO75:NEXTL:FZ=3:IFA$=""THEN33350
  220. 33367 IFFZ=1THENFORL=1TO75:NEXTL:FZ=3:IFA$=""THEN33350
  221. 33368 IFFZ=3THENPRINT"[154]THE BLOODLINE OF CHRIST"
  222. 33369 IFFZ=3THENFORL=1TO200:NEXTL:FZ=0:IFA$=""THEN33350
  223. 33370 POKESR+21,PEEK(SR+21)AND254:PRINT"":RETURN
  224. 34000 REM ** WORKING DISPLAY **
  225. 34005 GOSUB400:F4=0:REM SELECT QUEST. #N
  226. 34006 POKEBR,FNA(X)
  227. 34010 PRINT"[147][156]BLOODLINE OF CHRIST":F2=0
  228. 34020 PRINT"[158] F1 [146] = STOP   F3 [146] = START OVER"
  229. 34030 PRINT" F5 [146] = LIST   F7 [146] = SCOREBOARD
  230. 34040 [153]" _ WAIT = SKIP QUESTION"
  231. 34050 [153]"QUESTION:"
  232. 34052 [153]""QU$(N)"?";
  233. 34055 [153]"CONTANSWER=?"
  234. 34060 [153]"SYSTYPE ANSWER , THEN PRESS  RETURN WAIT"
  235. 34070 [153]"               CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  236. 34075 [141]500
  237. 34080 [139]F2[178]1[167]34010:[143] RETURN FROM LIST
  238. 34085 [139]F3[178]1[167]F3[178]0:[137]34070
  239. 34087 [141]300:[143] CHECK ANSWER
  240. 34089 [139]F4[177]0[167]34070:[143] MORE THEN ONE MISS
  241. 34090 [139]F3[178]1[167]F3[178]0:[137]34070
  242. 34099 [137]34000
  243. 35000 [143] ** START OVER? **
  244. 35004 [151]BR,[165]A(X)
  245. 35005 [153]"LOADCLR"[163]7)NA$","
  246. 35007 [153]""[163]7)"CONTARE YOU SURE YOU WANT TO"
  247. 35010 [153]""[163]9)"START OVER?  SYSIF YES,"
  248. 35020 [153]""[163]11)"PRESS  F3 WAIT AGAIN."
  249. 35030 [153]"      TO GO BACK TO THE QUESTIONS,"
  250. 35040 [153]""[163]13)"PRESS ANY KEYCONT"
  251. 35050 [129]L[178]1[164]10:[161]A$:[130]L:FL[178]0
  252. 35051 [161]A$:[139]A$[178]""[167]FL[178]FL[170]1
  253. 35052 [139]FL[178]500[167][141]37160:[137]35080
  254. 35060 [139]A$[178]""[167]35051
  255. 35070 [139]A$[178][199](134)[167][151]BR,[165]A(X):[156]:[138]
  256. 35080 F2[178]1:[142]
  257. 37000 [143] ** STOP **
  258. 37005 [151]BR,[165]A(X)
  259. 37010 [153]"LOADCLR"[163]12)NA$","
  260. 37015 [153]""[163]10)"YOU WISH TO STOP?"
  261. 37020 [153]""[163]9)"SYSTO START OVER PRESS"
  262. 37030 [153]""[163]16)" F3 WAIT"
  263. 37040 [153]""[163]9)"CONTTO GO BACK WHERE YOU"
  264. 37050 [153]""[163]11)"CAME FROM PRESS"
  265. 37060 [153]""[163]14)" SPACEBAR WAIT"
  266. 37070 [153]""[163]13)"TO QUIT PRESS"
  267. 37080 [153]""[163]17)" F1 WAITCONT"
  268. 37090 [129]L[178]1[164]10:[161]A$:[130]L:FL[178]0
  269. 37091 [161]A$:[139]A$[178]""[167]FL[178]FL[170]1
  270. 37092 [139]FL[178]500[167][141]37160:[141]38000:F2[178]1:[153]"LOAD":[142]
  271. 37100 [139]A$[178]""[167]37091
  272. 37110 [139]A$[178][199](134)[167][141]35000:[142]
  273. 37120 [139]A$[178][199](133)[167][151]808,237:[153]"LOAD"[166]13)"GOODBYE!"[199](9):[128]
  274. 37130 [139]A$[178][199](32)[167]F2[178]1:[153]"LOAD":[142]
  275. 37140 [137]37091
  276. 37150 [143] ATTRACT ATTENTION
  277. 37160 [153]"LOADYOUR ATTENTION PLEASE":[153]""NA$","
  278. 37165 [153]"LET'S GET WITH THE PROGRAM!":[129]L[178]1[164]10
  279. 37170 [151]53265,11:[129]D[178]1[164]2 :[130]D:[141]37220
  280. 37180 [151]53265,27:[151]53280,[181]([187](1)[172]14)[170]2
  281. 37190 [129]D[178]1[164]30:[130]D
  282. 37195 [130]L:[129]D[178]1[164]3000:[130]D:[142]
  283. 37200 [143] WARNING SOUND
  284. 37210 [129]L[178]54272[164]54272[170]28:[151]L,0:[130]L
  285. 37220 [151]54296,15:[151]54277,3:[151]54278,240
  286. 37230 [151]54276,17:[151]54273,37:[151]54272,162
  287. 37240 [129]D[178]1[164]100:[130]:[151]54276,16:[129]D[178]1[164]100:[130]
  288. 37245 [151]54296,0:[142]
  289. 38000 [143] ** DISPLAY SCOREBOARD **
  290. 38010 F2[178]1:[151]BR,[165]A(X)
  291. 38020 [153]"CLRLOAD************* SCOREBOARD ***************"
  292. 38030 [153]"SYS F1 WAIT = STOP   F7 WAIT = REVIEW
  293. 38040 PRINT"[154]TOTAL RIGHT * * * * * * "TAB(28)RI
  294. 38045 IFRI>9THENPRINT"[145]"TAB(28)"   [157][157][157][157]"RI
  295. 38050 PRINT"[154]TOTAL WRONG * * * * * * "TAB(28)WR
  296. 38055 IFWR>9THENPRINT"[145]"TAB(28)"   [157][157][157][157]"WR
  297. 38060 PRINTTAB(29)"[154][197]"
  298. 38065 IFWR>9ORRI>9THENPRINT"[145]"TAB(28)"[154][197][197]"
  299. 38070 PRINT"TOTAL PROBLEMS  * * * * "WR+RI
  300. 38073 IFWR+RI>9THENPRINT"[145]"TAB(28)"   [157][157][157][157]"WR+RI
  301. 38075 IFWR+RI=0THENTP=0:GOTO38080
  302. 38078 TP=INT(((RI/(WR+RI))*100)+.5)
  303. 38080 PRINT"[154]TOTAL % CORRECT * * * * * "TP"[154]%"
  304. 38090 PRINT"[150]  "NA$"..."
  305. 38092 PRINT"[156]  LOOKED AT NAME LIST <    > TIMES"
  306. 38093 PRINT"[145]"TAB(23)NL
  307. 38095 PRINT"[156]  SKIPPED A QUESTION  <    > TIMES"
  308. 38096 PRINT"[145]"TAB(23)SK
  309. 38110 PRINT"IF YOU WANT [158]TO REVIEW THE QUESTIONS"
  310. 38120 PRINT"     THAT YOU MISSED, [158]PRESS  F7 [146]"
  311. 38130 PRINT"      PRESS  SPACEBAR [146] TO GO BACK";
  312. 38140 FORL=1TO10:GETA$:NEXTL:FL=0
  313. 38141 GETA$:IFA$=""THENFL=FL+1
  314. 38142 IFFL=2000THEN38210
  315. 38160 IFA$=CHR$(32)THENRETURN
  316. 38170 IFA$=CHR$(133)THENGOSUB37000
  317. 38180 IFA$=CHR$(32)THENRETURN:REM COMING BACK FROM STOP ROUTINE
  318. 38195 IFA$<>CHR$(136)THEN38141
  319. 38200 REM REVIEW QUESTIONS MISSED
  320. 38210 PRINT"[156][147]***************  REVIEW  ***************"
  321. 38215 POKEBR,FNA(X)
  322. 38220 PRINT"[158]   F1 [146] = STOP   F7 [146] = RETURN"
  323. 38230 PRINT"THE QUESTION WAS:"
  324. 38240 PRINT"THE ANSWER IS:"
  325. 38250 PRINT"THE PROOF IS:"
  326. 38260 PRINT"[129]PRESS  SPACEBAR [146] TO CONTINUE REVIEW"
  327. 38270 FORL=1TO40
  328. 38280 IFPF(L)=0THENNEXTL
  329. 38290 PRINT"                                                          ";
  330. 38295 PRINT"                                                                  ";
  331. 38296 PRINT"                                                                  ";
  332. 38297 PRINT"                                                                   "
  333. 38300 PRINT""QU$(L);"?"
  334. 38310 PRINT"                                                 ";
  335. 38320 PRINT"  "AN$(L)
  336. 38330 PRINT"                              "
  337. 38340 PRINT"  "PR$(L)
  338. 38350 FORL1=1TO10:GETA$:NEXTL1:FL=0
  339. 38351 GETA$:IFA$=""THENFL=FL+1
  340. 38352 IFFL=2000THENPRINT"[154]":RETURN
  341. 38360 IFA$=""THEN38351
  342. 38370 IFA$=CHR$(133)THENGOSUB37000:GOTO38210
  343. 38380 IFA$=CHR$(136)THENPRINT"[154]":RETURN
  344. 38395 IFA$=CHR$(32)ANDL<=40THENNEXTL
  345. 38397 IFL>40THEN38270
  346. 38399 FL=0:GOTO38351
  347. 50000 REM ** DATA STATEMENTS **
  348. 50010 DATA"  WHO WAS THE FATHER OF SETH'S FATHER","","GOD","LUKE 3:38"
  349. 50020 DATA"  WHO WAS FORMED FROM THE DUST OF THE    EARTH","","ADAM"
  350. 50030 DATA"GEN 2:7&19 ICOR15:45-49"
  351. 50035 DATA"  WHO WAS THE WOMAN THAT CAUSED GODS     PLAN"
  352. 50040 DATA" OF REDEMPTION TO BE SET IN MOTION","EVE","GEN 3:13&15 ITIM 2:14"
  353. 50050 DATA"  WHO WAS BORN IN PLACE OF 'RIGHTEOUS'   ABEL","","SETH"
  354. 50060 DATA"GEN4:25  MTT23:35"
  355. 50065 DATA"  DURING WHO'S TIME DID MEN 'BEGIN TO    CALL ON THE"
  356. 50070 DATA" NAME OF THE LORD'","ENOSH","GEN 4:26","  WHO WAS THE FATHER OF"
  357. 50080 DATA" ENOCH","JARED","GEN 5:18","  WHO PROPHESIED THAT 'THE LORD WILL"
  358. 50090 DATA"     COME WITH TEN THOUSANDS OF HIS SAINTS'","ENOCH","JUDE 14"
  359. 50100 DATA"  WHO WAS THE SON OF THE MAN WHO NEVER   DIED","","METHUSELAH"
  360. 50110 DATA"GEN 5:21-24","  WHO WAS THE FATHER OF NOAH","","LAMECH","GEN 5:28,29"
  361. 50120 DATA"  WHO DID PETER CALL 'A PREACHER OF      RIGHTEOUSNESS'","","NOAH"
  362. 50130 DATA"IIPET 2:5","  WHO WOULD NOT LOOK ON HIS FATHER'S     NAKEDNESS",""
  363. 50140 DATA"SHEM","GEN 9:23","  DURING WHO'S DAY DID GOD CONFUSE THE   LANGUAGE"
  364. 50150 DATA" OF THE EARTH","PELEG","GEN10:25  11:9","  WHO WAS ABRAHAM'S"
  365. 50160 DATA" GRANDFATHER","NAHOR","GEN 11:24-26","  WHO HAD A GRANDSON"
  366. 50170 DATA" NAMED LOT","TERAH","GEN11:31","  TO WHOM WAS IT FIRST SAID"
  367. 50180 DATA" 'IN YOUR     SEED SHALL ALL THE NATIONS OF THE EARTH BE BLESSED'"
  368. 50190 DATA"ABRAHAM","GEN 22:15-18","  WHEN SHE GAVE BIRTH TO THE CHILD OF"
  369. 50200 DATA"    PROMISE, SHE WAS OVER 90 YRS. OLD.      WHO WAS SHE","SARAH"
  370. 50210 DATA"GEN17:16,17;21:5","  TO WHOM WAS IT SAID 'MY SON, GOD WILL PROVIDE"
  371. 50220 DATA" THE LAMB FOR A BURNT OFFERING'","ISAAC","GEN 22:7-8"
  372. 50230 DATA"  WHO GAVE BIRTH TO TWINS","","REBEKAH","GEN 25:21-26"
  373. 50240 DATA"  WHO HAD HIS NAME CHANGED TO ISREAL","","JACOB","GEN 32:28"
  374. 50250 DATA"  WHO DIED WHILE GIVING BIRTH","","RACHEL","GEN 35:16-18"
  375. 50260 DATA"  WHO OFFERED HIMSELF IN PLACE OF HIS    BROTHER WHILE STANDING"
  376. 50265 DATA" BEFORE PHA-    ROAH'S SERVANT","JUDAH","GEN 44:33"
  377. 50270 DATA"  WHO FROM JERICHO"
  378. 50280 DATA" WAS SAVED BY FAITH    THAT WAS EVIDENCED BY THEIR WORKS","RAHAB"
  379. 50290 DATA"HEB. 11:31  JAS 2:25","  WHO MARRIED A MOABITESS","","BOAZ"
  380. 50300 DATA"RUTH 4:9&10","  WHO WAS THE MOABITESS WHO GAVE BIRTH   TO DAVID'S"
  381. 50310 DATA" GRANDFATHER","RUTH","RUTH 4:10&17","  WHO WAS DAVID'S GRANDFATHER"
  382. 50320 DATA"","OBED","RUTH 4:17","  TO WHOOSE HOUSE WAS THE PROPHET SAMUEL"
  383. 50330 DATA" SENT TO FIND THE KING WHOM GOD HAD      CHOSEN","JESSE"
  384. 50335 DATA"ISAM 16:1"
  385. 50340 DATA"  WHO WAS A LOWLY SHEPHERD BEFORE HE WAS LIFTED UP TO BE KING"
  386. 50350 DATA" OVER ALL ISREAL","DAVID","ISAM 16:7-13  IISAM 5:3","  WHO WAS THE"
  387. 50360 DATA" MOTHER OF SOLOMON","BATHSHEBA","IISAM 12:24"
  388. 50370 DATA"  WHEN OFFERED A WISH, WHO WAS IT THAT   CHOOSE 'AN UNDERSTANDING"
  389. 50380 DATA" HEART TO JUDGE THE PEOPLE'","SOLOMON","IICHRO 1:10-12"
  390. 50390 DATA"  WHO WAS THE KING WHEN ISREAL DIVI-     DED INTO THE NORTHERN AND"
  391. 50400 DATA" SOUTHERN      KINGDOMS","REHOBOAM","IKI 12:16-20"
  392. 50410 DATA" THIS KING LED REFORMS, HIS HEART WAS   LOYAL ALL HIS DAYS, AND"
  393. 50420 DATA" HE DIED WITH A  DISEASE OF THE FEET.  WHO WAS HE","ASA"
  394. 50430 DATA"IICHR CHPTS 15&16","  WHO WAS IT THAT 'WALKED IN THE WAY OF  HIS"
  395. 50440 DATA" FATHER ASA,...DOING WHAT WAS RIGHT  IN THE SIGHT OF THE LORD"
  396. 50450 DATA"JEHOSHAPHAT","IICHR 20:31&32"
  397. 50455 DATA"  WHAT KING ORDERED A COLLECTION BE      PLACED IN A CHEST FOR THE"
  398. 50457 DATA" REPAIR OF     THE TEMPLE","JOASH","IICHRO 24:8-9"
  399. 50458 DATA"  WHAT KING, AFTER THE REIGN OF AHAZ,"
  400. 50460 DATA"    CLEANSED THE TEMPLE AND RESTORED THE    TEMPLE WORSHIP"
  401. 50470 DATA"HEZEKIAH","IICHRON CHPT.29"
  402. 50480 DATA"  AFTER HEARING THE WORDS OF 'THE LOST   BOOK OF THE LAW', THIS KING"
  403. 50490 DATA"  TORE HIS   CLOTHES AND WENT ABOUT RESTORING TRUE   WORSHIP. WHO"
  404. 50500 DATA"JOSIAH","IICHRON CHPT.34"
  405. 50510 DATA"  WHO RETURNED TO JERUSALEM TO HELP      REBUILD THE TEMPLE",""
  406. 50520 DATA"ZERUBBABEL","EZRA 3:8","  WHO WAS THE 'STEP-FATHER' OF JESUS",""
  407. 50530 DATA"JOSEPH","MTT 1:18-21 LK 1:35&36","  WHO HEARD, 'YOU WILL HAVE A"
  408. 50540 DATA" SON, ...   GOD WILL GIVE HIM THE THRONE OF HIS     FATHER DAVID.'"
  409. 50550 DATA"MARY","LK 1:31-33","  IN 'WHOM' WERE WE CHOSEN BEFORE THE"
  410. 50560 DATA"    FOUNDATION OF THE WORLD","JESUS CHRIST","EPH 1:3-4"
  411. 50570 DATA"  WHO ARE RELATIVES OF CHRIST TODAY","","CHRISTIANS"
  412. 50580 DATA"MTT 12:50  LK 8:21"
  413. 51000 REM ** SPRITE #0 DATA **
  414. 51010 REM
  415. 51020 DATA0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0
  416. 51030 DATA31,255,240,31,255,240,31,255,240
  417. 51040 DATA0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0
  418. 51050 DATA0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0
  419.